Developer CD Series 1996 May: Tool Chest/Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso/Tool Chest/Development Tools & Languages/Dylan Related/Mindy/Mindy 1.2 - portable sources/libraries/dylan/char.dylan

Text File | 1995-03-15 | 1.5 KB | 47 lines | [TEXT/ttxt]

module: Dylan
rcs-header: $Header: char.dylan,v 1.4 94/11/06 20:09:16 rgs Exp $

//======================================================================
//
// Copyright (c) 1994  Carnegie Mellon University
// All rights reserved.
//
// Use and copying of this software and preparation of derivative
// works based on this software are permitted, including commercial
// use, provided that the following conditions are observed:
//
// 1. This copyright notice must be retained in full on any copies
//    and on appropriate parts of any derivative works.
// 2. Documentation (paper or online) accompanying any system that
//    incorporates this software, or any part of it, must acknowledge
//    the contribution of the Gwydion Project at Carnegie Mellon
//    University.
//
// This software is made available "as is".  Neither the authors nor
// Carnegie Mellon University make any warranty about the software,
// its performance, or its conformity to any specification.
//
// Bug reports, questions, comments, and suggestions should be sent by
// E-mail to the Internet address "[e-mail]".
//
//======================================================================
//
// This file contains the support for characters that isn't built in.
//

define method as-uppercase (c :: <character>)
  if ('a' <= c & c <= 'z')
    as(<character>, as(<integer>, c) - 32);
  else
    c;
  end;
end;

define method as-lowercase (c :: <character>)
  if ('A' <= c & c <= 'Z')
    as(<character>, as(<integer>, c) + 32);
  else
    c;
  end;
end;